HPAVC/HPAVC CD-ROM.iso/LORD2B6.ZIP/BOAT.REF

Text File | 1997-04-27 | 2KB | 97 lines

;Ref for all boating stuff  (Go Gilligan!)

@#BSIGN
;A stock message outline
@DO SAYBAR
`2You're on a boat!!!
@DO MOVEBACK

@#BOAT
;The actual travel boat
@DO MOVEBACK
@BUSY
@DO `v01 is 1
@SHOW
`r0`c  `r1  Looks like a chartering ship  `r0

  `2A small man with a checkboard greets you `0"Tickets please..."

@DO WRITE
`x`x
@CHOICE
I was just looking around actually
>`i26 0 Show him your ticket to ArrisVille
>`i27 0 Show him your ticket to Karna
>`i33 0 Show him your ticket to FlagCity
>`i32 0 Show him your ticket to PortTown
@IF RESPONSE IS 1 THEN DO
@Begin
@Show
`\`\  `$"Just admiring you nice ship here,"`2 you say.
`\`k  `0"How nice, please leave" `2he snaps.
`\`k
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@End
;ticket to ArrisVille
@IF RESPONSE IS 2 THEN DO
@Begin
@Show
`\`\  `0"That's great, but the town's currently under siege.  We aren't
  going there" `2The man replies.
`\`k
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@End
;ticket to Karna
@IF RESPONSE IS 3 THEN DO
@Begin
@Show
`\`\  `0"That town's not quite finished yet, ergo leave!" `2The man replies.
`\`k
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@End
;ticket to FlagCity
@IF RESPONSE IS 4 THEN DO
@Begin
@do `i33 - 1
@do `p13 is 2
@Show
`\`\  `0"Allrighty then, let's go!" `2The man replies.
`\`k
@loadmap 71
@do map is 71
@do x is 38
@do y is 14
@DRAWMAP
@DO SAYBAR
`2Welcome to FlagCity
@UPDATE
@CLOSESCRIPT
@End
;ticket to PortTown
@IF RESPONSE IS 5 THEN DO
@Begin
@do `i32 - 1
@do `p13 is 1
@Show
`\`\  `0"PortTown?  Good choice, let's go!" `2The man replies.
`\`k
@loadmap 152
@do map is 152
@do x is 38
@do y is 2
@DRAWMAP
@DO SAYBAR
`2Welcome to PortTown
@UPDATE
@CLOSESCRIPT
@End


@#nomore